home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 56 / 64er_Magazin_Sonderheft_56_19xx_Markt__Technik_de_Side_A.d64 / video's v.2.1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  14KB  |  371 lines
  1. 1 rem copyright by david schlaepfer       listschutz toeten: zeile 1 loeschen(NULL)
  2. 2 rem druck-routine:fuer alle epson-kompatiblen drucker o.k.
  3. 4 poke53281,0:poke53280,0:printchr$(142):goto 14050
  4. 5 clr:printchr$(14):remx=anzahl datae
  5. 10 dim  x1(200):rem zeit  fuer 100 doppelseitige kassetten
  6. 12 x=-1:rem keine daten vorhanden
  7. 15 rem dn$=name zugriffsfile
  8. 20 dim  x2(200):rem jahrgang 100 ""
  9. 30 dim xn$(200):rem  namen
  10. 40 dim x$(200) :rem ausgeliehen an..
  11. 50 dim x3(200) :rem video nr.
  12. 52 dim p%(200) :rem fuer alphabet.order
  13. 54 dim d%(200) :rem ????????
  14. 55 rem x(i)         absolute nummer
  15. 60 rem aa$,ab$,ac$,ad$,ad,ae$,ae,af:kurzfristig benuetzte daten
  16. 61 rem d$=aktuelles datum
  17. 100 gosub 10000:print"[158]            [214]ersion 2.1  7.89"
  18. 105 print"[159]  [193]ktueller [211]tand: ";x+1;" [198]ilme auf "
  19. 107 print"                   ";int((x+2)/2) ;" [203]assetten"
  20. 110 print"[152] -1- [193]lten [194]estand laden"
  21. 120 print" -2- [206]eue [203]assetten eingeben"
  22. 130 print" -3- [193]lte [203]assetten umbenennen"
  23. 140 print" -4- [193]usgabe auf [194]ildschirm"
  24. 150 print" -5- [193]usgabe auf [196]rucker"
  25. 160 print" -6- [207]rdnen nach [206]ummern"
  26. 170 print" -7- [207]rdnen nach [193]lphabet"
  27. 180 print" -8- [193]usgeliehene nachsehen"
  28. 190 print" -9- [193]ktuellen [218]ustand speichern"
  29. 193 print" -0- [212]itel suchen / [196]aten einer [203]ass."
  30. 195 print"[151] -q- [208]rogramm verlassen. [210]eset"
  31. 200 get a$:ifa$=""then200
  32. 205 ifa$="q"then400
  33. 206 ifa$="0"then220
  34. 210 ifval(a$)<1orval(a$)>9 then 200
  35. 220 on (val(a$)+1)goto 12000,1000,2000,3000,4000,5000,6000,7000,8000,9000
  36. 399 goto 200
  37. 400 gosub 10000
  38. 401 print"[158][160][210] [197] [211] [197] [212]        [152]"
  39. 404 input "[158]   [211]ind [211]ie sicher !?  n[146][158][157][157][157]";aa$
  40. 405 if aa$="j"then sys 64738
  41. 410 goto 100
  42. 1000 gosub 10000
  43. 1010 print"[158][204]aden            [152]"
  44. 1020 print" -1- [196]atei laden"
  45. 1030 print" -2- [196]irectory zeigen"
  46. 1040 print"[151] -q-  quit"
  47. 1050 geta$:ifa$=""then1050
  48. 1060 if val(a$)<0orval(a$)>2anda$<>"q"then1050
  49. 1065 if a$="q" then goto 100
  50. 1070 onval(a$) goto 1090,1500
  51. 1080 goto 1050
  52. 1090 input"[206]ame der [196]atei :";dn$
  53. 1100 open15,8,15:open1,8,2,dn$+",s,r"
  54. 1110 input#15,fe:if fe=0 then 1130
  55. 1120 print"    [211]orry: [196]iskettenfehler [146]":poke198,0:wait198,1:sys65511:goto1000
  56. 1130 x=0
  57. 1140 input#1,xn$(x),x$(x),x1(x),x2(x),x3(x)
  58. 1150 if st<>64 then x=x+1:goto 1140
  59. 1160 close15:close1: sys 65511:print">> [196]atei ist geladen.[160]<<"
  60. 1170 print"   [158][212]aste...":poke 198,0:wait 198,1:goto 100
  61. 1500 gosub 10000:print"[158][196]irectory        [152]"
  62. 1510 rem
  63. 1600 j=0:print" 0 ";:open1,8,0,"$":poke781,1:sys65478:geta$,a$,a$,a$:x$=chr$(0)
  64. 1610 for i=1 to 7:geta$,b$,o$,d$:printa$b$o$d$;:next:print:geta$,a$,a$,b$
  65. 1620 if st then sys 65484:close 1:goto 1670
  66. 1630 j=j+1:if j=14 then print"[158]     [212]aste.[152]":wait 198,1:j=0:print"[147]"
  67. 1635 if j=0 then gosub 10000: print"[158][196]irectory        [152]"
  68. 1640 printasc(a$+x$)+256*asc(b$+x$);
  69. 1650 goto 1610
  70. 1670 print"[158]     [212]aste.[152]":poke 198,0:wait 198,1:poke198,0:goto 1000
  71. 2000 gosub 10000:print"[158][206]eue erfassen    [152]"
  72. 2010 print"[159] [194]estand: ";x+1;"[198]ilme auf ";int((x+2)/2);" [203]assetten"
  73. 2020 print "[155] [203]assette [206]r.";:x3(x+1)=x+1:printint((x3(x+1)+2)/2)
  74. 2030 ifx/2=int(x/2)thenprint" [211]eite b":goto 2050
  75. 2040 print" [211]eite a"
  76. 2050 x=x+1
  77. 2060 input"[152][206]ame  ...: ><[145][157][157][157][155]";xn$(x)
  78. 2070 x3(x)=x:input"[152][196]auer ...:[155]";x1(x)
  79. 2080 input"[152][202]ahrgang.:[155]";x2(x)
  80. 2090 x$(x)="":print""
  81. 2100 input"[215]eitere erfassen  j[157][157][157]";aa$
  82. 2110 if aa$="j"then goto 2000
  83. 2120 if aa$="n"then goto 100
  84. 2130 print"[145]";:goto 2100
  85. 3000 gosub 10000:print"[158][193]lte umbenennen  [152]"
  86. 3005 if x=-1 then print" [203]eine [196]aten !":poke 198,0:wait 198,1:goto 100
  87. 3010 print"[159] [194]estand: ";x+1;"[198]ilme auf ";int((x+2)/2);" [203]assetten"
  88. 3030 input"[155] [193]endern: [203]assette [206]r.";ab$:af=val(ab$)*2-1:print""
  89. 3045 for i=0 to x:if x3(i)<>afthennexti
  90. 3060 if i>xtheni=x
  91. 3061 print"[152][206]ame  ...: ";xn$(i)
  92. 3070 print"[152][196]auer ...:[155]";x1(i)
  93. 3080 print"[152][202]ahrgang.:[155]";x2(i)
  94. 3090 print""
  95. 3100 input"[196]ieses [196]atum aendern  j[157][157][157]";aa$
  96. 3110 if aa$="j"then goto 3200
  97. 3115 if aa$="q"then goto 100
  98. 3120 if aa$<>"n" then print"[145]";:goto 3100
  99. 3130 af=abs(af-1):gosub 10000
  100. 3140 print"[159] [194]estand: ";x+1;"[198]ilme auf ";int((x+2)/2);" [203]assetten"
  101. 3145 for i=0 to x:if x3(i)<>afthennexti
  102. 3150 print"":goto 3060
  103. 3200 print""
  104. 3210 input"[152][206]ame  ...";xn$(i)
  105. 3220 input"[152][196]auer ...[155]";x1(i)
  106. 3230 input "[152][202]ahrgang.[155]";x2(i)
  107. 3240 print""
  108. 3250 input"         [196]atum korrekt  j[157][157][157]";aa$
  109. 3260 if aa$="j" then goto 100
  110. 3270 if aa$="n" then goto 3200
  111. 3280 print"[145]";:goto 3200
  112. 4000 gosub 10000:print"[158][194]ildschirmausgabe[152]"
  113. 4030 if x=-1 then print" [203]eine [196]aten !":poke 198,0:wait 198,1:goto 100
  114. 4035 print"[158]([206]ame / [203]assette / [196]auer / [202]g. / ausg.)[146][152]"
  115. 4040 for i=0 to x:aa$=str$(int((x3(i)+2)/2))
  116. 4050 if len(aa$)<3 then aa$=" "+aa$:goto 4050
  117. 4055 ab$=str$(x1(i))
  118. 4057 iflen(ab$)<4 then ab$=" "+ab$:goto 4057
  119. 4090 ac$=str$(x2(i))
  120. 4095 if len(ac$)<5 then ac$=ac$+" ":goto4095
  121. 4100 ad$="  ":iflen(x$(i))>0 thenad$=" x"
  122. 4110 ae$=left$(xn$(i),24)+"                        "
  123. 4115 if mid$(xn$(i),24,1)>" " then ae$=left$(ae$,24)+"."
  124. 4120 print"[145]";left$(ae$,25);" ";aa$;ab$;ac$;ad$;"  "
  125. 4200 if i/12<>int(i/12) or i= 0 then 4220
  126. 4210 if i>0 then print"[155]   [212]aste..[152]":poke 198,0:wait 198,1
  127. 4215 getaa$:ifaa$="q" then goto 100
  128. 4216 gosub 10000:print"[158][194]ildschirmausgabe[152]"
  129. 4217 print"[158]([206]ame / [203]assette / [196]auer / [202]g. / ausg.)[146][152]"
  130. 4220 nexti:print"[158]   [212]aste..[152]":poke 198,0:wait 198,1: goto 100
  131. 5000 gosub 10000:print"[158][196]ruckerausgabe   [152]"
  132. 5007 if x=-1 then print" [203]eine [196]aten !":poke 198,0:wait 198,1:goto 100
  133. 5010 input "  [200]eutiges [196]atum : ";d$:ifd$="q"then100
  134. 5011 close4:open4,4:print#4,chr$(14)"            [214]ideo-[214]erzeichnis";chr$(15)
  135. 5012 print#4,"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]";
  136. 5013 print#4,"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
  137. 5015 print#4,"  geschrieben von [196]avid [211]chlaepfer                 [200]eute,den ";d$
  138. 5016 print#4,"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]";
  139. 5017 print#4,"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
  140. 5018 print#4:print#4,"+  [206]r. [206]ame                                    ";
  141. 5019 print#4,"  +  t/min + [202]ahrg. +  ausgel. +"
  142. 5030 print#4,"----------------------------------------";
  143. 5035 print#4,"---------------------------------------"
  144. 5040 for i=0 to x:aa$=str$(int((x3(i)+2)/2))
  145. 5050 if len(aa$)<3 then aa$=" "+aa$:goto 5050
  146. 5057 ab$=str$(x1(i))
  147. 5058 if len(ab$)<6 then ab$=" "+ab$:goto 5058
  148. 5090 ac$=str$(x2(i))
  149. 5095 if len(ac$)<5 then ac$=" "+ac$:goto5095
  150. 5100 ad$="   ":iflen(x$(i))>0 thenad$=" x "
  151. 5120 print#4,"+ ";aa$;" ";xn$(i);spc(42-len(xn$(i)));" + ";ab$;" + ";ac$;
  152. 5130 print#4,"  +  ";ad$;"     +"
  153. 5200 next i
  154. 5210 print#4,"----------------------------------------";
  155. 5220 print#4,"----------------------------------d.s.-":sys 65511:goto 100
  156. 6000 gosub 10000:print"[158][206]umerisch ordnen [152]"
  157. 6005 if x=-1 then print" [203]eine [196]aten !":poke198,0:wait 198,1:goto 100
  158. 6007 i=0:af=0
  159. 6010 if x3(i)=i then i=i+1:print"";af:printi:         goto 6090
  160. 6020 :
  161. 6030 s1=x1(x3(i)):s2=x2(x3(i)):s3=x3(x3(i)):s$=x$(x3(i)):sa$=xn$(x3(i)):rem r&n
  162. 6040 :
  163. 6050 x1(x3(i))=x1(i)
  164. 6052 x2(x3(i))=x2(i)  :rem umschreiben
  165. 6054 x$(x3(i))=x$(i)  :rem   '    '
  166. 6056 xn$(x3(i))=xn$(i):rem   '    '
  167. 6058 x3(x3(i))=x3(i)
  168. 6070 x3(i)=s3:x2(i)=s2:x1(i)=s1:x$(i)=s$:xn$(i)=sa$ : af=af+1: i=0
  169. 6090 if i=x-1 or i>=x then  goto 100
  170. 6091 goto 6010
  171. 7000 rem **copyrighyt by   ***********
  172. 7001 rem ** ** david schlaepfer  ** **       rem ** remember zumikon but    **
  173. 7002 rem ***  forget kopp.         ***
  174. 7010 gosub 10000:print"[158][193]lphabet. ordnen [152]"
  175. 7015 if x=-1 then print" [203]eine [196]aten !":poke 198,0:wait 198,1:goto 100
  176. 7017 if x<3 then print" [205]ehr [196]aten !":poke 198,0:wait 198,1:goto 100
  177. 7020 print"[152]          [194]itte [199]eduld...."
  178. 7022 x=x+1
  179. 7023 x1(x)=x1(0):x2(x)=x2(0):x3(x)=x:x$(x)=x$(0):xn$(x)=xn$(0)
  180. 7024 x1(0)=0:x2(0)=0:x3(0)=0:x$(0)="":xn$(0)="":rem unterstes datum nach oben
  181. 7025 ::for i=0tox:p%(i)=i:nexti
  182. 7030 for f=0 to 2: for c=f+1 to 3
  183. 7035 if xn$(c)<xn$(f) then j=p%(f):p%(f)=p%(c):p%(c)=j
  184. 7037 if xn$(c)<xn$(f) then s$=xn$(f):xn$(f)=xn$(c):xn$(c)=s$
  185. 7040 next c:next f
  186. 7047 for f=3 to x:c=2^(-int(-log(f)/log(2))-1):print"";f
  187. 7050 for b=-int(-log(f)/log(2))-2 to 0 step -1
  188. 7075 if c>=f then 7110
  189. 7100 if xn$(f)>xn$(c) then c=c+2*2^b
  190. 7110 c=c-2^b:nextb:if xn$(f)>xn$(c) then c=c+1
  191. 7112 v=p%(f):s$=xn$(f)
  192. 7115 for b=f-1 to cstep-1:xn$(b+1)=xn$(b):p%(b+1)=p%(b)
  193. 7117 next b:xn$(c)=s$:p%(c)=v:nextf
  194. 7118 for i=0 to x
  195. 7120 if p%(i)=i then goto 7180
  196. 7125 m=p%(i)
  197. 7130 s$=x$(m):s1=x1(m):s2=x2(m):s3=x3(m):n=d%(m)
  198. 7140 x$(m)=x$(p%(m)):x1(m)=x1(p%(m))
  199. 7141 x2(m)=x2(p%(m)):x3(m)=x3(p%(m)):d%(m)=d%(p%(m))
  200. 7142 c=m:m=p%(m):p%(c)=c
  201. 7145 ifi=m then x1(i)=s1:x2(i)=s2:x3(i)=s3:x$(i)=s$:d%(m)=n:goto 7180
  202. 7150 goto 7140
  203. 7180 nexti
  204. 7190 for i=1tox
  205. 7192 x1(i-1)=x1(i)
  206. 7193 x2(i-1)=x2(i)
  207. 7194 x3(i-1)=x3(i)
  208. 7195 x$(i-1)=x$(i)
  209. 7197 xn$(i-1)=xn$(i)
  210. 7200 nexti:x=x-1
  211. 7210 for i=1tox:if x3(i)<>x+1 then next i
  212. 7215 x3(i)=0:goto 100
  213. 8000 gosub 10000:print"[158][193]usgeliehene     [152]"
  214. 8005 if x=-1 then print" [203]eine [196]aten !":poke 198,0:wait 198,1:goto 100
  215. 8010 print" -1- [196]atum als ausgeliehen vermerken"
  216. 8020 print" -2- [203]assette wieder zurueck"
  217. 8030 print" -3- [215]er hat [203]ass. [206]r.'[216]' ausgeliehen"
  218. 8040 print" -4- [215]as   hat   [212]yp  '[217]' ausgeliehen"
  219. 8050 print" -5- [204]iste der [193]usgeliehenen"
  220. 8060 print"[151] -q-  quit"
  221. 8070 geta$:ifa$=""then8070
  222. 8080 if val(a$)<0 or val(a$)>5 and a$<>"q"then 8070
  223. 8085 if a$="q"thengoto100
  224. 8090 on val(a$) goto 8100,8200,8300,8400,8500
  225. 8095 goto 8070
  226. 8100 gosub 10000:print"[158][193]usg. -1-        [152]"
  227. 8110 print"[159] [194]estand: ";x+1;"[198]ilme auf ";int((x+2)/2);" [203]assetten"
  228. 8120 input"[155] [193]usgel.: [203]assette [206]r.";ab$:af=abs(val(ab$)*2-1)
  229. 8125 if ab$="q"thenaf=0:goto100
  230. 8127 for i=0tox:ifx3(i)=afthen print"[152][206]ame  :";left$(xn$(i),32):ad=i:goto 8135
  231. 8130 nexti : print"[152][210]ueckseite nicht gefunden.":ad=-1
  232. 8135 for i=0tox:ifx3(i)=af-1thenprint"[152][206]ame  :";left$(xn$(i),32):ae=i:goto8160
  233. 8140 nexti : print"[152][214]orderseite nicht gefunden.":ae=-1
  234. 8160 input"[155] [196]iese [203]assette ausgeliehen  j[157][157][157]";aa$
  235. 8170 if aa$="n"thengoto8100
  236. 8172 if aa$="q"thengoto100
  237. 8175 if aa$<>"j"thenprint"[145][145][145]";:goto 8160
  238. 8180 input" [193]usleihender : ";ab$
  239. 8184 ifad>-1 then x$(ad)=ab$:goto 8188
  240. 8186 print"[152][210]ueckseite nicht gefunden!"
  241. 8188 ifae>-1 then x$(ae)=ab$:goto 8190
  242. 8189 print"[152][214]orderseite nicht gefunden!"
  243. 8190 poke198,0:print"        [158][212]aste.[152]":wait 198,1: poke198,0:   goto 8000
  244. 8200 gosub 10000:print"[158][193]usg. -2-        [152]"
  245. 8210 print"[159] [194]estand: ";x+1;"[198]ilme auf ";int((x+2)/2);" [203]assetten"
  246. 8220 input"[155] [218]urueck: [203]assette [206]r.";ab$:af=abs(val(ab$)*2-1)
  247. 8225 if ab$="q"thenaf=0:goto 100
  248. 8227 for i=0 to x:if af=x3(i)then print"[152][206]ame  :";xn$(i):ae=i:goto 8240
  249. 8230 next i:print"[214]orderseite nicht gefunden.":ae=-1
  250. 8240 for i=0 to x:if af-1=x3(i)then print"[152][206]ame  :";xn$(i):ad=i:goto 8260
  251. 8245 next i:print"[210]ueckseite nicht gefunden.":ad=-1
  252. 8260 input" [196]iese [203]assette zurueck      j[157][157][157]";aa$
  253. 8270 if aa$="n" then goto 8200
  254. 8272 if aa$="q" then goto 100
  255. 8275 if aa$<>"j"thenprint"[145]";:goto 8260
  256. 8284 if ad>-1then x$(ad)="":goto 8288
  257. 8286 print"[214]orderseite nicht gefunden."
  258. 8288 if ae>-1then x$(ae)="" :goto8290
  259. 8289 print"[210]ueckseite nicht gefunden."
  260. 8290 print"        [158][212]aste.":poke198,0:wait198,1:goto8000
  261. 8300 gosub 10000:print"[158][193]usg. -3-        [152]"
  262. 8310 input" [203]assette [206]r. :";aa$:af=2*val(aa$)-1:ifaa$="q"then100
  263. 8320 fori=0 to x:if x3(i)<>af then next
  264. 8330 iflen(x$(i))=0thenprint"[206]icht ausgeliehen.":goto 8350
  265. 8340 print"[193]usgeliehen an:";x$(i)
  266. 8350 print"[158]       [212]aste.":poke198,0:wait 198,1:goto 8000
  267. 8400 gosub 10000:print"[158][193]usg. -4-        [152]"
  268. 8405 print "[198]uer '[206]ame des [203]lienten' genuegen [193]n-   fangsbuchstaben."
  269. 8407 af=0:input"[206]ame des [203]lienten :";aa$:print""
  270. 8410 for i=0tox:ifaa$<>left$(x$(i),len(aa$))then 8440
  271. 8420 af=af+1:print "[152][203]ass.";int((x3(i)+2)/2);":";left$(xn$(i),28)
  272. 8422 print"[155]";spc(39-len(x$(i)));x$(i)
  273. 8425 if af/10<>int(af/10)then goto 8440
  274. 8430 print"[158]         [212]aste.[152]":poke 198,0:wait198,1
  275. 8435 print"[147]":getab$:ifab$="q"then100
  276. 8440 nexti:print"[158]        [212]aste.[152]":poke198,0:wait198,1:getab$:ifab$="q"then100
  277. 8445 goto 8000
  278. 8500 gosub 10000:print"[158][193]usg. -5-        [152]"
  279. 8510 af=0:for i=0tox:if x$(i)=""thengoto 8540
  280. 8515 if x3(i)/2=int(x3(i)/2)thengoto 8540
  281. 8517 aa$=str$(int((x3(i)+2)/2))
  282. 8518 if len(aa$)<4 then aa$=" "+aa$:goto8518
  283. 8520 print "[203]ass.";aa$;" an ";left$(x$(i),26):af=af+1
  284. 8530 if af/15=int(af/15)then print"[158]       [212]aste.[152]":poke 198,0:wait 198,1:af=0
  285. 8535 ifaf=0 then gosub 10000:print"[158][193]usg. -5-        [152]"
  286. 8540 nexti:print"         [158][212]aste.":poke 198,0:wait 198,1:getab$
  287. 8550 ifab$="q"thengoto 100
  288. 8555 goto 8000
  289. 9000 gosub 10000:print"[158][193]bspeichern      [152]"
  290. 9010 ifx=-1then print"  [203]eine [196]aten !!":poke198,0:wait198,1:goto100
  291. 9020 print:print"[206]ame der [196]atei: ";dn$;chr$(13):input"[145][145]";dn$
  292. 9030 open1,8,2,"@:"+dn$+",s,w"
  293. 9040 for i=0tox
  294. 9050 print#1,xn$(i)","x$(i)",";
  295. 9055 print#1,x1(i)","x2(i)","x3(i)
  296. 9060 nexti
  297. 9070 print" [196]atei ist gesichert":close1:print:poke 198,0:wait 198,1:poke198,0
  298. 9080 input"    [208]rogrammende  [146]  n[157][157][157]";aa$
  299. 9090 if aa$<>"n"andaa$<>"j"thenprint"[145][145]":goto 9080
  300. 9100 ifaa$="n"thengoto 100
  301. 9110 ifaa$="j"then sys 64738
  302. 10000 print"[147][152]  [172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
  303. 10010 print  "  [161]     [155][214]ideoverwaltung von [152]      [161][151] "
  304. 10020 print  "[152]  [161]            [155][196]avid [211]chlaepfer   [152][161][151] "
  305. 10030 print  "[152]  [161]    [158] [205]odus : [152]                  [161][151] "
  306. 10040 print  "[152]  [188][146][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][190][151] [146]"
  307. 10050 print"                                    "
  308. 10100 poke198,0:return
  309. 12000 gosub 10000:print"[158][212]itel / [203]ass.suchen[152]"
  310. 12001 ifx=-1then print"  [203]eine [196]aten !!":poke198,0:wait198,1:goto100
  311. 12002 print"[155] -1- [212]itel suchen";chr$(13);" -2- [196]aten einer [203]assette"
  312. 12003 print"[151] -q-  quit"
  313. 12004 getaa$:ifaa$<>"1"andaa$<>"2"andaa$<>"q"then12004
  314. 12005 if aa$="q"then100
  315. 12006 if aa$="2" then goto 12200
  316. 12007 if aa$="1" then goto 12100
  317. 12008 goto 12004
  318. 12100 gosub 10000:print"[158][212]itel suchen[152]"
  319. 12107 print" [198]uer '[212]itel' genuegen erste [194]uchstaben."
  320. 12108 aa$="": input" [199]esuchter [212]itel :";aa$:ae=len(aa$):print""
  321. 12109 if aa$ ="q" then goto 100
  322. 12110 af=4:  for i=0 to x:if left$(xn$(i),ae)=aa$ then goto 12118
  323. 12112 if(af/8)<>int(af/8)thengoto 12116
  324. 12114 ifaf>0thenprint"[158]     [212]aste.":   poke198,0:wait198,1:getab$:gosub12180
  325. 12115 ifab$="q"then100
  326. 12116 nexti:print "        [158][212]aste.":poke 198,0:wait 198,1:gosub 12000
  327. 12118 ab$=str$(int((x3(i)+2)/2)):ab$=right$(ab$,len(ab$)-1)
  328. 12119 if len(ab$)<3thenab$=" "+ab$:goto12119
  329. 12120 print"[151][203]ass.";ab$;"[155]:";left$(xn$(i),29)
  330. 12125 print"[151] [196]auer:";x1(i);spc(5-len(str$(x1(i))));"[202]g.:";
  331. 12130 printx2(i);spc(5-len(str$(x2(i))));"[193]usg.:--[157][157]";left$(x$(i),13)
  332. 12150 af=af+1: goto 12112
  333. 12180 poke198,0:gosub 10000:print"[158][212]itel suchen[152]"
  334. 12190 return
  335. 12200 gosub 10000:print"[158][196]aten e. [203]assette  [152]"
  336. 12210 input"[151] [206]r. der [203]assette :";aa$
  337. 12215 if aa$="q"thengoto100
  338. 12216 ae=val(aa$):af=2*ae-1
  339. 12220 for i=0tox:if x3(i)=af thengoto12230
  340. 12225 nexti:print"[214]orderseite nicht gefunden.":goto12250
  341. 12230 print"[155][214]orderseite[151]:";left$(xn$(i),27):print"[151] [196]auer     :";x1(i)
  342. 12240 print"[152] [202]ahrgang  :";x2(i)
  343. 12250 af=af-1:for i=0tox:if x3(i)=af thengoto12260
  344. 12255 nexti:print"[210]ueckseite nicht gefunden.":goto12280
  345. 12260 print "[155][210]ueckseite:[151]";left$(xn$(i),27):print   "[151] [196]auer    :";x1(i)
  346. 12270 print  "[152] [202]ahrgang :";x2(i):print"[155][193]usgeliehen an: --[157][157]";x$(i)
  347. 12280 print"      [158][212]aste.":poke198,0:wait 198,1:getab$
  348. 12285 if ab$="q"thengoto100
  349. 12290 goto 12000
  350. 14050 print"[147][144]"
  351. 14100 print" [209]   [209]  [209]  [209][209][209]  [209][209][209][209]  [209][209][209]   [209]   [209][209][209][209]
  352. 14102 [153]" (NULL)   (NULL)  (NULL)  (NULL)  (NULL) (NULL)    (NULL)   (NULL)  (NULL)  (NULL)
  353. 14103 print"  [209] [209]   [209]  [209]  [209] [209][209][209]  [209]   [209]      [209][209][209]
  354. 14104 [153]"  (NULL) (NULL)   (NULL)  (NULL)  (NULL) (NULL)    (NULL)   (NULL)         (NULL)
  355. 14105 print"   [209]    [209]  [209]  [209] [209]    [209]   [209]         [209]
  356. 14106 [153]"   (NULL)    (NULL)  (NULL)(NULL)(NULL)  (NULL)(NULL)(NULL)(NULL)  (NULL)(NULL)(NULL)      (NULL)(NULL)(NULL)(NULL)
  357. 14107 print" [209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]"
  358. 14110 print"            [209][209][209]  [209]   [209]
  359. 14111 [153] "            (NULL)  (NULL) (NULL)   (NULL)
  360. 14112 print " copyright  [209][209][209]   [209] [209]        david
  361. 14113 [153] "            (NULL)  (NULL)   (NULL)       schlaepfer
  362. 14114 print "            [209]  [209]   [209]       dorfstr.80
  363. 14115 [153] "            (NULL)(NULL)(NULL)    (NULL)       ch-zumikon
  364. 14130 b=1
  365. 14140 for a=1*(-(b=1))to6step1.5*b
  366. 14150 fori=55376+ato56135step6
  367. 14160 pokei,13:nexti:nexta:ifb=1thenb=2:goto14140
  368. 14170 poke198,0:wait 198,1:print"[147]":goto 5
  369. 20000 :rem numerisch ordnen
  370. 20001 :rem 12100-12199 nur 10 aufs mal ausgeben
  371.